home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / K-L / LImacSTACK11⁄89.cpt / Command Examples / card_4231.txt < prev    next >
Text File  |  1989-11-02  |  5KB  |  226 lines
  1. -- card: 4231 from stack: in
  2. -- bmap block id: 4378
  3. -- flags: 0000
  4. -- background id: 2810
  5. -- name: Play
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8003
  11. -- rect: left=158 top=292 right=314 bottom=350
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Play in a rectangle
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   -- plays a specific animation file in a rectangle
  23.   get the rectangle of btn "border" -- a transparent button
  24.   put it into rectRefNum
  25.   Studio1 open, "ref", "apple"
  26.   if the result is empty
  27.   then
  28.   studio1 play, ref, rectRefNum
  29.   Studio1 close, ref
  30. else
  31.   put the result
  32. end if
  33. end mouseUp
  34.  
  35.  
  36.  
  37. -- part 2 (button)
  38. -- low flags: 00
  39. -- high flags: 0000
  40. -- rect: left=119 top=108 right=289 bottom=374
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 0 / 0
  43. -- text alignment: 1
  44. -- font id: 0
  45. -- text size: 12
  46. -- style flags: 0
  47. -- line height: 16
  48. -- part name: Border
  49.  
  50.  
  51. -- part 3 (button)
  52. -- low flags: 00
  53. -- high flags: 8003
  54. -- rect: left=386 top=105 right=127 bottom=503
  55. -- title width / last selected line: 0
  56. -- icon id / first selected line: 0 / 0
  57. -- text alignment: 1
  58. -- font id: 0
  59. -- text size: 12
  60. -- style flags: 0
  61. -- line height: 16
  62. -- part name: Play 3 times
  63. ----- HyperTalk script -----
  64. on mouseUp
  65.   -- plays a specific animation file in a rectangle
  66.   get the rectangle of btn "border" -- a transparent button
  67.   put it into rectRefNum
  68.   Studio1 open, "ref", "apple"
  69.   if the result is empty
  70.   then
  71.   studio1 play, ref, rectRefNum, loop3 -- sets number of times it plays
  72.   Studio1 close, ref
  73. else
  74.   put the result
  75. end if
  76. end mouseUp
  77.  
  78.  
  79.  
  80. -- part 4 (button)
  81. -- low flags: 00
  82. -- high flags: 8003
  83. -- rect: left=386 top=134 right=156 bottom=503
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 0 / 0
  86. -- text alignment: 1
  87. -- font id: 0
  88. -- text size: 12
  89. -- style flags: 0
  90. -- line height: 16
  91. -- part name: Play until click
  92. ----- HyperTalk script -----
  93. on mouseUp
  94.   get the rectangle of btn "border"
  95.   put it into rectRefNum
  96.   Studio1 open, "ref", "apple"
  97.   if the result is empty
  98.   then
  99.   studio1 play, ref, rectRefNum, cont -- continuous until mouseClick
  100.   Studio1 close, ref
  101. else
  102.   put the result
  103. end if
  104. end mouseUp
  105.  
  106.  
  107.  
  108. -- part 5 (button)
  109. -- low flags: 00
  110. -- high flags: 8003
  111. -- rect: left=386 top=246 right=268 bottom=503
  112. -- title width / last selected line: 0
  113. -- icon id / first selected line: 0 / 0
  114. -- text alignment: 1
  115. -- font id: 0
  116. -- text size: 12
  117. -- style flags: 0
  118. -- line height: 16
  119. -- part name: Play fast
  120. ----- HyperTalk script -----
  121. on mouseUp
  122.   get the rectangle of btn "border"
  123.   put it into rectRefNum
  124.   Studio1 open, "ref", "apple"
  125.   if the result is empty
  126.   then
  127.   studio1 play, ref, rectRefNum, cont, Speed60 -- sets speed 1 to 60
  128.   Studio1 close, ref
  129. else
  130.   put the result
  131. end if
  132. end mouseUp
  133.  
  134.  
  135.  
  136. -- part 6 (button)
  137. -- low flags: 00
  138. -- high flags: 8003
  139. -- rect: left=9 top=107 right=129 bottom=100
  140. -- title width / last selected line: 0
  141. -- icon id / first selected line: 0 / 0
  142. -- text alignment: 1
  143. -- font id: 0
  144. -- text size: 12
  145. -- style flags: 0
  146. -- line height: 16
  147. -- part name: Play
  148. ----- HyperTalk script -----
  149. on mouseUp
  150.   Studio1 open, "ref", "apple"
  151.   if the result is empty
  152.   then
  153.   studio1 play, ref
  154. else
  155.   put the result
  156. end if
  157. Studio1 close, ref
  158. end mouseUp
  159.  
  160.  
  161.  
  162. -- part 7 (button)
  163. -- low flags: 00
  164. -- high flags: 8003
  165. -- rect: left=386 top=270 right=292 bottom=503
  166. -- title width / last selected line: 0
  167. -- icon id / first selected line: 0 / 0
  168. -- text alignment: 1
  169. -- font id: 0
  170. -- text size: 12
  171. -- style flags: 0
  172. -- line height: 16
  173. -- part name: Play slow
  174. ----- HyperTalk script -----
  175. on mouseUp
  176.   get the rectangle of btn "border"
  177.   put it into rectRefNum
  178.   Studio1 open, "ref", "apple"
  179.   if the result is empty
  180.   then
  181.   studio1 play, ref, rectRefNum, cont, Speed5 -- sets speed
  182.   Studio1 close, ref
  183. else
  184.   put the result
  185. end if
  186. end mouseUp
  187.  
  188.  
  189.  
  190. -- part 8 (button)
  191. -- low flags: 00
  192. -- high flags: 8003
  193. -- rect: left=386 top=161 right=183 bottom=503
  194. -- title width / last selected line: 0
  195. -- icon id / first selected line: 0 / 0
  196. -- text alignment: 1
  197. -- font id: 0
  198. -- text size: 12
  199. -- style flags: 0
  200. -- line height: 16
  201. -- part name: Play until key
  202. ----- HyperTalk script -----
  203. on mouseUp
  204.   get the rectangle of btn "border"
  205.   put it into rectRefNum
  206.   answer "Press any key to stop the animation."
  207.   Studio1 open, "ref", "apple"
  208.   if the result is empty
  209.   then
  210.   studio1 play, ref, rectRefNum, cont, key -- press any key to stop
  211.   Studio1 close, ref
  212. else
  213.   put the result
  214. end if
  215. hide msg
  216. end mouseUp
  217.  
  218.  
  219.  
  220. -- part contents for background part 8
  221. ----- text -----
  222. Play
  223.  
  224. -- part contents for background part 9
  225. ----- text -----
  226. Play the animation previously loaded into memory with the OPEN command.